home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU17.ARC / MSD! (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.0 KB  |  28 lines
  1. 0 REM
  2. 1 POKE55,0:POKE56,16:CLR:M=16:L=5085
  3. 2 OPEN1,8,15:PRINT#1,"M-R"CHR$(0)CHR$(192)CHR$(1)
  4. 3 GET#1,A$:V=ASC(A$+CHR$(0)):IFV=120THENV$="2.0":GOTO6
  5. 4 IFV=50THENV$="2.3":GOTO6
  6. 5 PRINT"[158]DRIVE ROM NOT RECONGIZABLE.":STOP
  7. 6 IFPEEK((4+M)*256)<>VTHENLOADV$+" MSD!",8,1
  8. 10 POKE53280,2:POKE53281,0:PRINT"[147]"TAB(11)"[158]SD2 BIT BACK'EM 1.0[146]"
  9. 15 PRINTTAB(12)"[156]([159]VERSION "V$" ROM[156])"
  10. 19 PRINTSPC(14)"[164][164][164][164][164][164][164][164][164][164][164][164][164]"
  11. 20 PRINTSPC(14)" PHOENIX RED [146]":PRINT
  12. 30 PRINT" [159]SOURCE DRIVE: 0[157]";:GOSUB300:POKEM*256+2,A:PRINT:S=A
  13. 40 PRINTTAB(19)"[145][159]DESTINATION DRIVE: 1[157]";:GOSUB300:POKEM*256+7,A::PRINT
  14. 50 IF(S<0ORS>1)OR(D<0ORD>1)THEN10
  15. 60 PRINTTAB(9)"DOWNLOADING ROUTINE...":GOSUB100:GOSUB200
  16. 65 PRINTTAB(4)"[159]INSERT DISKETTES-":GOSUB400:A$=STR$(S):PRINT#1,"I"A$:GOSUB200
  17. 70 PRINTTAB(15)"[158]WORKING...":PRINT#1,"M-E"CHR$(0)CHR$(80)
  18. 80 GOSUB200:PRINTTAB(13)"[153]JOB COMPLETED.":PRINT#1,"I":CLOSE1:END
  19. 100 FORB=0TO4:POKEL+30,B+80:POKE252,B+M:FORP=0TO7:POKEL+31,P*32:POKE251,P*32
  20. 110 SYSL:NEXT:NEXT:RETURN
  21. 200 INPUT#1,A$,B$,C$,D$:IFA$="00"THENRETURN
  22. 210 PRINT"[158]DISK ERROR:[146] ";A$","B$","C$","D$:STOP
  23. 300 OPEN2,0:INPUT#2,A:CLOSE2:RETURN
  24. 400 A$="":X=NOTX:IFXTHENA$=""
  25. 410 PRINT"[145]"TAB(22)"("A$"[158]HIT RETURN[146])."
  26. 420 FORD=1TO20:GETA$:IFA$<>CHR$(13)THENNEXT:GOTO400
  27. 430 RETURN
  28.